home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / STFX-soundsystemdisk.adf / sources / ZOUNDMON.CFILES / Guru.c < prev    next >
C/C++ Source or Header  |  1988-01-20  |  752b  |  25 lines
  1. /*
  2.  * This tiny program is a
  3.  * little demonstration
  4.  * how to deal with Guru Meditations
  5.  * Link with GuruGoodBye.o or AJ.Lib
  6.  * This usefull programming help was
  7.  * made up, designed, programmed,
  8.  * and finally brought to you by AJ
  9.  * from ACTIVAS !
  10.  * It also is  (a) AWC 1988
  11.  */
  12.  
  13. quit(mes)char *mes;                    /* You'll get a string */
  14. { Write(Output(),mes,strlen(mes));       /* Which tells you */
  15.   FreeGurus();                            /* what happened */
  16.   exit(0);
  17. }
  18. main()
  19. { CatchGurus(quit);  /* Trap 3,4,5,6,7,9,10 and 11 will cause */
  20. #asm                               ; a call to quit
  21.   jmp 1                 ; Show that it works, Generate a TRAP 3
  22. #endasm
  23.   Delay(200);           /* program will never reach this point */
  24. }
  25.